home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Kick Pascal v2.10 d2.adf / SYSPROG / IntMsgDemo2.p < prev    next >
Text File  |  1990-11-01  |  1KB  |  42 lines
  1. Program IntMsgDemo2; { zweite Version }
  2.  
  3. {$incl 'intuition.lib' }
  4.  
  5. Var
  6.  Win: ^Window;
  7.  Msg: ^IntuiMessage;
  8.  Ende: Boolean;
  9.  
  10. Procedure Star(x, y: integer);
  11.   Var IText: IntuiText;
  12.   Begin
  13.     IText:=IntuiText(3, 0, 0, -4, -4, Nil, '*', Nil);
  14.     PrintIText(Win^.RPort, ^Itext, x, y)
  15.   End;
  16.  
  17. Begin
  18.   Win:=Open_Window(20,10, 300,80, 1, _CLOSEWINDOW or MOUSEBUTTONS,
  19.              ACTIVATE or WINDOWCLOSE or WINDOWDEPTH or WINDOWDRAG,
  20.              'Schließ mich! Version 2.0', Nil, 100, 20, 640, 256);
  21.   Ende:= false;
  22.   OpenLib(IntBase, 'intuition.library', 0);   { ist nötig, weil die
  23.                       Intuition-Funktion "PrintIText" benutzt wird. }
  24.   Repeat
  25.     { auf Nachricht warten: }
  26.     Msg:= Wait_Port(Win^.UserPort);
  27.     Msg:= Get_Msg(Win^.UserPort);
  28.  
  29.     Case Msg^.Class Of
  30.      _CLOSEWINDOW: Ende:=true;
  31.      MOUSEBUTTONS: Star(Msg^.MouseX, Msg^.MouseY)
  32.     Otherwise
  33.       { unbekannte Message empfangen }
  34.     End;
  35.  
  36.     Reply_Msg(Msg);   { Nachricht als ausgewertet kennzeichnen }
  37.  
  38.   Until Ende;
  39.   Close_Window(Win);
  40.   CloseLib(IntBase);  { eigentlich überflüssig }
  41. End.
  42.